home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_MD.PRG < prev    next >
Encoding:
Text File  |  1993-01-21  |  1.3 KB  |  41 lines
  1. //*****************************************************************************
  2. // C_MD.prg
  3. // Menu data class for OBJECT v2.03
  4. // Copyright (c) 1991, JHK, JHK-Software, Piestany
  5. // Please compile with: /N/M/W/A
  6. //-----------------------------------------------------------------------------
  7.  
  8. #include "Object.ch"
  9.  
  10. create class MD         //Menu Data structure for BAR,MENU,ITEM
  11.   export:
  12.   var Name      // ""       //name item
  13.   var ID        // 0        //pointer into Menu:Block & Menu:Avail
  14.   var Help      // 0        //help pointer
  15.   var Data      // nil      //array (action or sub_items)
  16.   var Idx       // 1        //index for Data array
  17.   var CheckIt   // false    //indicate checked item
  18.   var PreBlock  // {||true} //eval the block before menu selection
  19.   var PostBlock // {||true}   //...            after ...
  20.   method New=MDNew            //o:New()
  21.   endclass
  22.  
  23.  
  24. //*****************************************************************************
  25. // MD:New() --> self
  26. // initialize new object
  27. //
  28. constructor MDNew()
  29.   ::Name:= ""
  30.   ::ID:= 0
  31.   ::Help:= 0
  32.   ::Data:= nil
  33.   ::Idx:= 1
  34.   ::CheckIt:= false
  35.   ::PreBlock:= {||true}
  36.   ::PostBlock:= {||true}
  37.   return(self)
  38.  
  39. //------------------------------------------------------- eof (c)JHK ----------
  40.  
  41.